
	.286

_TEXT segment word public 'CODE'

lstrcpy proc far pascal uses ds si di string1:dword, string2:dword

	cld
	les di, string2
	or cx, -1
	xor ax, ax
	repne scasb
	lds si, string2
	les di, string1
	mov ax, di
	mov dx, es
	not cx
	shr cx, 1
	rep movsw
	adc cx, cx
	rep movsb
	ret
lstrcpy endp

_TEXT ends

	end

